DESlock+'++LotusScript Development Environment:2:5:(Options):0:74
Use "DlpEncryption"
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Postopen(Source As Notesuidocument)
Declare Sub Terminate
Declare Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As NOTESUIDOCUMENT
Set Source = Bind(Objectname_)
On Event Postopen From Source Call Postopen
On Event Queryopen From Source Call Queryopen
End Sub
'++LotusScript Development Environment:2:2:Postopen:1:12
Sub Postopen(Source As Notesuidocument)
Call cmdPostOpen(Source)
End Sub
'++LotusScript Development Environment:2:2:Terminate:1:10
Sub Terminate
End Sub
'++LotusScript Development Environment:2:2:Queryopen:1:12
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Call cmdQueryOpen(Source)
End Sub
<Begin DESlock+ Plugin Subform>
DlpEncrypted
<End DESlock+ Plugin Subform>
Encrypt and Send'++LotusScript Development Environment:2:5:(Options):0:74
Use "DlpEncryption"
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call cmdEncryptMessage()
End Sub
DlpEncryptedh
Windows
5S6S
Encrypt Now
'++LotusScript Development Environment:2:5:(Options):0:74
Use "DlpEncryption"
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call cmdEncryptNow()
End Sub
Windows
0S0E
Decrypt
'++LotusScript Development Environment:2:5:(Options):0:74
Use "DlpEncryption"
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call cmdDecryptMessage()
End Sub
DlpEncryptedh
DlpEncrypted
Windows
5S6S9S10S
Decrypt Attachments '++LotusScript Development Environment:2:5:(Options):0:74
Use "DlpEncryption"
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call cmdDecryptAttachments()
End Sub
Windows
15S16S
Decrypt and Reply with History'++LotusScript Development Environment:2:5:(Options):0:74
Use "DlpEncryption"
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call cmdDecryptForReply()
End Sub
DlpEncryptedh
DlpEncrypted
Windows
5S6S11S12S
Process Key Update'++LotusScript Development Environment:2:5:(Options):0:74
Use "DlpEncryption"
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call cmdProcessUpdate()
End Sub
Windows
PostedDate
15S16S23S24S25S26S
Request Key
'++LotusScript Development Environment:2:5:(Options):0:74
Use "DlpEncryption"
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call cmdRequestKey()
End Sub
Windows
2S3S
Process Key RequestD'++LotusScript Development Environment:2:5:(Options):0:74
Use "DlpEncryption"
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button)
'++LotusScript Development Environment:2:5:(Declarations):0:2
'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
Static Source As BUTTON
Set Source = Bind(Objectname_)
On Event Click From Source Call Click
End Sub
'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button)
Call cmdProcessKeyRequest()
End Sub
Windows
PostedDate
15S16S23S24S
O=deskey
O=deskey
PURSAFO
O=deskey
CN=Mark Anstice/O=deskey
r<5*EN
PURSAFO
$TITLE
$Info
$$Script_O
$$ScriptName
$$FormScript
$$$FormScript_O
$Body
$ACTIONS
$SCRIPTOBJ_0
$SCRIPTOBJ_1
$SCRIPTOBJ_2
$SCRIPTOBJ_3
$SCRIPTOBJ_4
$SCRIPTOBJ_5
$SCRIPTOBJ_6
$SCRIPTOBJ_7
CN=Mark Anstice/O=deskey
DlpEncryption
DESlock+ Configuration...
DESlock+
O=deskey
O=deskey
PURSAFO
O=deskey
CN=Mark Anstice/O=deskey
r<5*EN
PURSAFO
$ScriptLib
$ScriptLib_O
$TITLE
$Flags
'++LotusScript Development Environment:2:5:(Options):0:74
Option Declare
'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Public Function HasReservedExtension(strFileName As String) As Integer
Declare Public Function GetProfileField(strField As String) As String
Declare Public Sub ShowRuntimeError
Declare Public Sub cmdDecryptMessage
Declare Public Sub cmdEncryptMessage
Declare Public Sub cmdRequestKey
Declare Function GetFileExtension(Byval strFilename As String) As String
Declare Public Sub cmdProcessKeyRequest
Declare Public Sub cmdProcessUpdate
Declare Public Sub cmdQueryOpen(Source As NotesUIDocument)
Declare Public Function EncryptBufferEx(strBuffer As String, lSerial As Long, lSlot As Long, lHasAtts As Long, lDoAtts As Long, lAttsSlot As Long, lApiFlags As Long) As Long
Declare Public Sub cmdDecryptForReply
Declare Public Function DoRecipientCheck(doc As NotesDocument) As Integer
Declare Public Function GetSender(doc As NotesDocument) As String
Declare Function InsertAttachment(doc As NotesDocument, strFileName As String) As Integer
Declare Public Sub cmdDecryptAttachments
Declare Public Sub cmdPostOpen(Source As NotesUIDocument)
Declare Public Sub cmdEncryptNow
'++LotusScript Development Environment:2:5:(Declarations):0:10
Public Const DLPNOTES_TITLE = "DESlock+ Notes Plugin"
Public Const MAX_TEXTLEN = 32000
Public Const MB_OK = 0
Public Const MB_YESNO = 4
Public Const MB_ICONQUESTION = 32
Public Const MB_ICONEXCLAMATION = 48
Public Const MB_ICONINFORMATION = 64
Public Const IDNO = 7
Public Const API_WANT_SIGNED = &H1
Public Const API_WANT_ENCRYPT = &H2
Public Const API_GET_SIZE = &H4
Public Const FLAG_FORCEVIEWER = &H1
Public Const FLAG_FAILIFVIEWER = &H2
Public Const FLAG_NONSTOP = &H4
Public Const DESLOCK_RESERVEDEXT = "DLR,DLU"
Public Const DESLOCK_MAXKEYNAMELEN = 16
Public Const DLPNOTES_SILENT = &h1
Public Const FLAG_PLAIN = "0"
Public Const FLAG_ENCRYPTED = "1"
Public Const FLAG_ENCRYPTNOW = "2"
Declare Public Function DLPGetTemporaryPath Lib "DlpNotes" () As String
Declare Public Function DLPGetTemporaryFileName Lib "DlpNotes" () As String
Declare Public Function DLPBrowseForFolder Lib "DlpNotes" (Byval hWnd As Long) As String
Declare Public Function DLPIsEncryptedBuffer Lib "DlpNotes" (Byval hWnd As Long, Byval lpszBuffer As String, Byval dwApiFlags As Long) As Long
Declare Public Function DLPEncryptBufferEx Lib "DlpNotes" (Byval hWnd As Long, Byval chFlags As Integer, _
Byval dwMsgFlags As Long, Byval lpBuffer As String, Byval dwSize As Long, pdwMaxSize As Long, pdwSerial As Long, _
lSlot As Long, lHasAtts As Long, lDoAtts As Long, lAttSlot As Long, Byval dwApiFlags As Long) As Long
Declare Public Function DLPDecryptBuffer Lib "DlpNotes" (Byval hWnd As Long, Byval lpszBuffer As String, Byval iFlags As Integer, Byval dwApiFlags As Long) As Long
Declare Public Function DLPIsEncryptedFile Lib "DlpNotes"( Byval lpszFile As String) As Long
Declare Public Function DLPEncryptFile Lib "DlpNotes" (Byval hWnd As Long, Byval lpszFileIn As String, Byval lpszFileOut As String, lKeySlot As Long, lpdwSerial As Long, Byval dwApiFlags As Long) As Long
Declare Public Function DLPDecryptFile Lib "DlpNotes" (Byval hWnd As Long, Byval lpszFileIn As String, Byval lpszFileOut As String, Byval dwApiFlags As Long) As Long
Declare Public Function DLPKeyTransferRequest Lib "DlpNotes" (Byval hWnd As Long, Byval lpszFile As String, Byval dwApiFlags As Long) As Long
Declare Public Function DLPKeyTransferUpdate Lib "DlpNotes" (Byval hWnd As Long, Byval lpszFile As String, Byval dwApiFlags As Long) As Long
Declare Public Function DLPKeyTransferIssue Lib "DlpNotes" (Byval hWnd As Long, Byval lpszInFile As String, Byval lpszOutFile As String, Byval dwApiFlags As Long) As Long
Declare Public Function DLPCreateReadMeFile Lib "DlpNotes" (Byval hWnd As Long, Byval fIsIssue As Integer, Byval dwApiFlags As Long) As Long
Declare Public Function DLPGetEncryptionKeyName Lib "DlpNotes" (Byval hWnd As Long, Byval lpszFile As String, Byval lpszName As String, Byval dwApiFlags As Long) As Long
'++LotusScript Development Environment:2:1:HasReservedExtension:1:8
Public Function HasReservedExtension(strFileName As String) As Integer
Dim strExt As String
HasReservedExtension = False
strExt = Ucase(GetFileExtension(strFileName))
If (Len(strExt) = 0) Then Exit Function
If (Instr(DESLOCK_RESERVEDEXT, strExt)) Then
HasReservedExtension = True
End If
End Function
'++LotusScript Development Environment:2:1:GetProfileField:1:8
Public Function GetProfileField(strField As String) As String
Dim ns As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim itmField As NotesItem
Dim strResult As String
Set db = ns.CurrentDatabase
If (Not(db Is Nothing)) Then
Set doc = db.GetProfileDocument("DeslockConfiguration")
If (Not(doc Is Nothing)) Then
Set itmField = doc.GetFirstItem(strField)
If (Not (itmField Is Nothing)) Then
strResult = itmField.Values(0)
End If
End If
End If
GetProfileField = strResult
End Function
'++LotusScript Development Environment:2:2:ShowRuntimeError:1:8
Public Sub ShowRuntimeError
If (Err = 48) Then
Messagebox "Error" & Str(Err) & ": " & Error$ & ". Unable to load DlpNotes.dll, please ensure DESlock+ is installed to Encrypt/Decrypt messages.",MB_OK + MB_ICONEXCLAMATION, DLPNOTES_TITLE
'++LotusScript Development Environment:2:1:EncryptBufferEx:1:8
Public Function EncryptBufferEx(strBuffer As String, lSerial As Long, lSlot As Long, lHasAtts As Long, lDoAtts As Long, lAttsSlot As Long, lApiFlags As Long) As Long
Dim lLength As Long
Dim lResult As Long
Dim lSize As Long
Dim DoAtts As Long
DoAtts = lDoAtts
lLength = Len(strBuffer)
Dim lFlags As Long
If (GetProfileField("SetRecipientForceViewer") = "1") Then
lFlags = FLAG_FORCEVIEWER
End If
If (GetProfileField("SetAutoEncryptAttachments") = "1") Then
(.txt)